home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / rfix0704.zip / R-PC0704.MRG < prev    next >
Text File  |  1992-07-04  |  4KB  |  81 lines

  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against C:\174\RBBS-PC.BAS to produce D:\SOURCE\RBBS-PC.BAS
  3. * C:\174\RBBS-PC.BAS:  Date 6-20-1992  Size 147219 bytes
  4. * ------------[ Created 07-04-1992 20:33:02 ]------------
  5. * REPLACING old line(s) by new
  6. 4380 WasA1$ = "Msg #" + _
  7.            STR$(LowMsgNumber) + _
  8.            "-" + _
  9.            MID$(STR$(ZMsgPtr(ActiveMessages,2)),2) + _
  10.            " (H)lp,S)ince,L)ast" + _
  11.            LEFT$(",G)lobal",8*(ZLinkedConf$ ="" OR ZGlobalRead)+8)
  12. * ------[ first line different ]------
  13.      CALL SkipLine (-QuickScanMsgs)                                  ' KG062301
  14.      IF ZGlobalRead THEN _
  15.         CALL QuickTPut1 ("Reading globally")
  16.      IF AddressedToUser OR ToRequested OR FromRequested THEN _
  17.         ZWasY$ = LEFT$("TO",-2*(ToRequested OR AddressedToUser)) + _
  18.              LEFT$("/",-AddressedToUser) + _
  19.              LEFT$("FROM",-4*(FromRequested OR AddressedToUser)) : _
  20.         CALL QuickTPut1 ("Include only msgs "+ZWasY$+" you.  Read what msgs (? for help)") _
  21.      ELSE WasA1$ = WasA1$ + ",T)o,F)rom,M)" : _
  22.           IF ReadMsgs AND ZMarkedMsgs$ <> "" THEN _
  23.              WasA1$ = WasA1$ + "arked" _
  24.           ELSE WasA1$ = WasA1$ + "ine"
  25.      IF SearchString$ = "" THEN _
  26.         WasA1$ = WasA1$ + _
  27.              ", text" _
  28.      ELSE CALL QuickTPut1 ("Include only msgs with text " + SearchString$ + ".  Read what msgs (? for help)")
  29. * REPLACING old line(s) by new
  30. 4418 ZWasA = INSTR("FfTt",ZUserIn$(ZAnsIndex))
  31.      IF ZWasA > 0 THEN _
  32.         ToRequested = (ZWasA > 2) : _
  33.         FromRequested = (ZWasA < 3) : _
  34.         GOTO 4370
  35.      IF CurMsg = 0 THEN _
  36.         IF SearchHeader$ <> "" THEN _
  37.            GOTO 4370 _
  38.         ELSE SearchString$ = ZUserIn$(ZAnsIndex) : _
  39.              SearchCt = 0 : _
  40.              CALL AllCaps (SearchString$) : _
  41.              CALL Remove (SearchString$,CHR$(34) + CHR$(39)) : _
  42.              SearchHeader$ = SearchString$ : _
  43.              SubInHeader$ = SearchHeader$ : _
  44.              GOTO 4370
  45. * ------[ first line different ]------
  46.      CALL SkipLine (-ReadMsgs)                                       ' KG062301
  47. * REPLACING old line(s) by new
  48. 4630   CALL AskMore (",M)ark, #(s) to read",ZTrue,ZTrue,WasXX,ZFalse)
  49.        IF ZWasQ = 0 OR ZYes THEN _
  50.           GOTO 4631
  51.        IF ZNo THEN _
  52.           RETURN
  53.        IF ZSubParm = -1 THEN _
  54.           RETURN 10595
  55.        IF ZRet THEN _
  56.           RETURN
  57.        ZWasZ$ = ZUserIn$(1)
  58.        CALL AllCaps (ZWasZ$)
  59.        IF ZWasZ$ = "M" THEN _
  60.           ZLastIndex = ZWasQ : _
  61.           ZAnsIndex = 1 : _
  62.           CALL AskItems ("M",ZWasZ$,ZTrue,"msg",ZMarkedMsgs$)
  63.        IF VAL(ZWasZ$) > 0 THEN _
  64.           FOR WasI = ZWasQ TO 1 STEP -1 : _
  65.              ZUserIn$(WasI + 1) = ZUserIn$(WasI) : _
  66.           NEXT : _
  67.           ZUserIn$(1) = MID$(ZAllOpts$,INSTR(ZOrigCommands$,"R"),1) : _
  68.           ZLastIndex = ZWasQ + 1 : _
  69.           ZAnsIndex = 1 : _
  70. * ------[ first line different ]------
  71.           RETURN 1235                                                ' KG062301
  72. * REPLACING old line(s) by new
  73. * ------[ first line different ]------
  74. 4631   IF NOT Forward AND NOT Reverse THEN _                         ' KG062301
  75.           GOTO 4370                                                  ' KG062301
  76.         CALL CheckCarrier                                            ' KG062301
  77.        IF ZSubParm THEN _
  78.           RETURN 10595
  79.        IF ZRet THEN _
  80.           RETURN
  81.